<%
intuser = request.querystring("id")
rsedit = connect.execute("select * from login where id = "&intuser&" ")
select case request("action")
case "edit"
struserid=request.form("userid")
strpassword=request.form("password")
strname=request.form("name")
stremail=request.form("email")
connect.execute ("update login set user='"& struserid &"',password='"& strpassword &"',name='"& strname &"',email='"& stremail &"' where id = "&intuser&"")
end select
%>
User Administration
<%set rsUsers = connect.execute("select * from login order by user desc")%>
<%
rsUsers.close
set rsUsers=nothing
%>
<% If Request.QueryString("action") = "tabort" then
strUser=request.QueryString("user")
connect.execute("delete from login where user ='" & strUser &"'")
response.Redirect("users.asp")
end if
%>